%
dim did
did=request.QueryString("id")
Dim SQL,rs,recordcountnum,page,i,j
SQL="select * from gb where id="&did
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1
If rs.eof and rs.bof Then
Response.Write ( "
没有留言。
" )
Else
dim ips,ip1,ip2,content,repcontent,name1,sex,title1,id,qq,email,qiaoqiaohua,time1
ips=split(rs("ip"),".")
ip1=""&ips(0)&"."&ips(1)&"."&ips(2)&".*"
ip2=rs("ip")
content=rs("content")
repcontent=rs("repcontent")
name1=rs("name")
sex=rs("sex")
title1=rs("title")
id=rs("id")
qq=rs("qq")
email=rs("email")
homepage=rs("homepage")
qiaoqiaohua=rs("qiaoqiaohua")
time1=rs("time")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%=title1%>